home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmis.dir / Internal_10_klickFurLocPos.ls < prev    next >
Encoding:
Text File  |  2001-09-10  |  547 b   |  33 lines
  1. property meSprite, pRot
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6. end
  7.  
  8. on mouseUp me
  9.   if the lastClick > 2 then
  10.     gmObject.reportFur(me.spriteNum, value(meSprite.member.name), pRot)
  11.     if sound(2).member = member(1, 1) then
  12.       sound(2).stop()
  13.     end if
  14.     stopEvent()
  15.   end if
  16. end
  17.  
  18. on getPropertyDescriptionList me
  19.   return [#pRot: [#comment: "rotation(1 - 360)", #format: #integer, #default: 0]]
  20. end
  21.  
  22. on mouseEnter me
  23.   cursor([500, 501])
  24. end
  25.  
  26. on mouseLeave me
  27.   cursor(0)
  28. end
  29.  
  30. on endSprite me
  31.   cursor(0)
  32. end
  33.